<?
	/* Se asegura que el archivo es incluido por el index */
		defined( 'LOAD_MODULE_ACTION' ) or die( 'No esta permitido el acceso directo a ' . __FILE__ );  
	// Obtiene los Parametros la Pagina
		$cDirectorio= getParam('cDirectorio','PG');
		$cArchivo   = getParam('cArchivo','PG');
		$cFilas     = getParam('cFilas','PG');
	// Abre una conexion al directorio de las DBFs	
	$oDatabaseDBF    =& openDB(DB_DBF, $cDirectorio );
	// Abre el archivo
	if ( $oDatabaseDBF->query($cArchivo) ) 
	{
		if ( is_array( $oDatabaseDBF->aFields ) ) 
		{
?>
	<table class="listado" summary="Esta tabla muestra el contenido del archivo <?= $cArchivo; ?>">
		<caption>Listado del Contenido del archivo <?= $cArchivo; ?></caption>
		<!-- Encabezado de la Tabla -->
		<thead>
			<tr>
				<th>Nro Fila</th>
        <? 
					foreach( array_keys($oDatabaseDBF->aFields) as $cCampo ) 
					{ 
				?>
					<th><?= $cCampo; ?></th>
				<?} ?>
				<th>Acciones</th>
			</tr>
		</thead>
		<!-- Cuerpo de la Tabla -->
		<tbody>	
			<?
				if ( $cFilas ) 
				{
					//  Ciclo por Cada Fila con Filtro
					$aFilas = explode(",", $cFilas ) ;
					foreach($aFilas as $ncFila ) 
					{
						if ( $oDatabaseDBF->moveTo($ncFila) ) 
						{
							imprimirLinea( $oDatabaseDBF );
						}		    		        
					}
				} else 
				{
					/// Ciclo por cada registro sin Filtro
					while ( $oDatabaseDBF->moveNext() ) 
					{
						imprimirLinea( $oDatabaseDBF );
					} // Fin del While por cada Registro del Query 
				}
			?>
		</tbody>
	</table>
<? 	
		} // Fin si hubo un error en el Query
	}
	
	function imprimirLinea ( $oDatabaseDBF ) 
	{
		?>
			<tr <?= interlineado( $nLinea, 'par', 'impar' ); ?> >
				<td><?= $oDatabaseDBF->nCurrentRecord; ?></td>
					<? 
						foreach( $oDatabaseDBF->aFields as $cCampo ) 
						{ 
					?>
						<td><?= $cCampo; ?></td>
					<? } ?>
				<td></td>
			</tr>
		<?        	
	}
?>
